home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / VSETATTR.S < prev    next >
Text File  |  1993-03-16  |  4KB  |  138 lines
  1. ;*========================================================================
  2. ;* VDIFAST Public Domain VDI bindings.
  3. ;*========================================================================
  4.  
  5.  
  6. ;*************************************************************************
  7. ;*
  8. ;* Attribute functions 1.
  9. ;*    This random collection is all in one module because if you use any
  10. ;*    one of these functions the overhead of having them all linked in is
  11. ;*    only about 50 bytes.
  12. ;*
  13. ;* vatt_1i1r    - Internal routine.
  14. ;* _vswr_mode    - Set writing mode.
  15. ;* _vsl_type    - Set polyline type.
  16. ;* _vsl_udsty    - Set polyline user-defined style.
  17. ;* _vsl_color    - Set polyline color.
  18. ;* _vsm_type    - Set polymarker type.
  19. ;* _vsm_color    - Set polymarker color.
  20. ;* _vst_rotation    - Set text baseline angle.
  21. ;* _vst_font    - Set text font/face.
  22. ;* _vst_color    - Set text color.
  23. ;* _vst_effects - Set text special effects.
  24. ;* _vsf_interior    - Set fill interior type.
  25. ;* _vsf_style    - Set fill interior style.
  26. ;* _vsf_color    - Set fill interior color.
  27. ;* _vsf_perimeter    - Set fill perimeter visibility.
  28. ;*
  29. ;*************************************************************************
  30.  
  31. ;*------------------------------------------------------------------------
  32. ;*-----------------------------------------------------------------------
  33. ;* vatt_1i1r
  34. ;*    For VDI attribute calls that use 1 intin, 1 intout (most of them).
  35. ;*    Entry:    d0.w = VDI function number.
  36. ;*-----------------------------------------------------------------------
  37. ;*------------------------------------------------------------------------
  38.  
  39. vatt_1i1r:
  40. ;    .cargs    #8,handle.w,integer.w
  41.  
  42. handle      =         8
  43. integer   =         10
  44.  
  45.           link        a6,#-2
  46.  
  47. ;          VContrl    d0,,,#1
  48.           move.w    handle(a6),-(sp)    ; contrl[6]
  49.           clr.l     -(sp)                ; contrl[5,4]
  50.           move.w    #1,-(sp)            ; contrl[3]
  51.           subq.l    #2,sp                ; contrl[2]
  52.           clr.w     -(sp)                ; contrl[1]
  53.           move.w    d0,-(sp)            ; contrl[0]
  54.  
  55.           subq.l    #4,sp                ;* -> ptsout
  56.           pea        -2(a6)                ;* -> intout
  57.           subq.l    #4,sp                ;* -> ptsin
  58.           pea        integer(a6)         ;* -> intin
  59.           pea        16(sp)                ;* -> contrl
  60.  
  61.           jmp        vdicall
  62.  
  63. ;*------------------------------------------------------------------------
  64. ;* Attribute stuff that uses 1 intin, 1 intout...
  65. ;*------------------------------------------------------------------------
  66.  
  67.           globl     _vswr_mode
  68. _vswr_mode:
  69.           ;* Set writing mode.
  70.           moveq.l    #32,d0
  71.           bra        vatt_1i1r
  72.           globl     _vsl_type
  73. _vsl_type:
  74.           ;* Set polyline type.
  75.           moveq.l    #15,d0
  76.           bra        vatt_1i1r
  77.           globl     _vsl_udsty
  78. _vsl_udsty:
  79.           ;* Set polyline user-defined style.
  80.           moveq.l    #113,d0
  81.           bra        vatt_1i1r
  82.           globl     _vsl_color
  83. _vsl_color:
  84.           ;* Set polyline color.
  85.           moveq.l    #17,d0
  86.           bra        vatt_1i1r
  87.           globl     _vsm_type
  88. _vsm_type:
  89.           ;* Set polymarker type.
  90.           moveq.l    #18,d0
  91.           bra        vatt_1i1r
  92.           globl     _vsm_color
  93. _vsm_color:
  94.           ;* Set polymarker color.
  95.           moveq.l    #20,d0
  96.           bra        vatt_1i1r
  97.           globl     _vst_rotation
  98. _vst_rotation:
  99.           ;* Set text baseline angle.
  100.           moveq.l    #13,d0
  101.           bra.b     vatt_1i1r
  102.           globl     _vst_font
  103. _vst_font:
  104.           ;* Set text font/face.
  105.           moveq.l    #21,d0
  106.           bra        vatt_1i1r
  107.           globl     _vst_color
  108. _vst_color:
  109.           ;* Set text color.
  110.           moveq.l    #22,d0
  111.           bra.b     vatt_1i1r
  112.           globl     _vst_effects
  113. _vst_effects:
  114.           ;* Set text special effects.
  115.           moveq.l    #106,d0
  116.           bra.b     vatt_1i1r
  117.           globl     _vsf_interior
  118. _vsf_interior:
  119.           ;* Set fill interior type.
  120.           moveq.l    #23,d0
  121.           bra.b     vatt_1i1r
  122.           globl     _vsf_style
  123. _vsf_style:
  124.           ;* Set fill interior style.
  125.           moveq.l    #24,d0
  126.           bra.b     vatt_1i1r
  127.           globl     _vsf_color
  128. _vsf_color:
  129.           ;* Set fill interior color.
  130.           moveq.l    #25,d0
  131.           bra.b     vatt_1i1r
  132.           globl     _vsf_perimeter
  133. _vsf_perimeter:
  134.           ;* Set fill perimeter visibility.
  135.           moveq.l    #104,d0
  136.           bra.b     vatt_1i1r
  137.  
  138.